home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasicpg.zip / BADBEAR.BAS < prev    next >
Encoding:
BASIC Source File  |  1989-08-31  |  479 b   |  23 lines
  1. ' BADBEAR.BAS
  2. ' This program contains two syntax errors.  Can you find them?
  3.  
  4. CLS
  5.  
  6. DIMM bears$(5)                             ' dimension string array
  7.  
  8. PRINT "Enter the names of your five favorite bears."
  9. PRINT
  10.  
  11. FOR i% = 1 TO 5                            ' get 5 strings
  12.     INPUT "Bear:  ", bears$(i%)
  13. NET i%
  14.  
  15. PRINT
  16. PRINT "You entered the following bears:"
  17. PRINT
  18.  
  19. FOR i% = 1 TO 5                            ' print 5 strings
  20.      PRINT bears$(i%)
  21. NEXT i%
  22.  
  23.